home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr48
/
vdl020d.zip
/
VDOS.DOC
< prev
next >
Wrap
Text File
|
1993-04-14
|
10KB
|
442 lines
{
════════════════════════════════════════════════════════════════════════════
Visionix DOS Mid-Level Unit (VDOS)
Copyright 1991,92,93 Visionix
ALL RIGHTS RESERVED
────────────────────────────────────────────────────────────────────────────
Revision history in reverse chronological order:
Initials Date Comment
──────── ──────── ────────────────────────────────────────────────────────
lpg 03/25/93 Fixed DOS_GetMediaID, DOS_SetMediaID and made sure
they indicated the Drive Number.
lpg 03/15/93 Added Source Documentation
mep 02/11/93 Cleaned up code for beta release
jrt 02/08/93 Sync with beta 0.12 release
lpg 12/08/92 Created
════════════════════════════════════════════════════════════════════════════
}
Unit VDos;
Uses
DOS;
{────────────────────────────────────────────────────────────────────────────}
Procedure DOS_GetData( Var Version : WORD;
Var OEM : BYTE;
Var Serial : LONGINT );
Function DOS_GetVersion : WORD;
Function DOS_GetOEM : BYTE;
Function DOS_GetSerial : LONGINT;
Function DOS_GetStartupDrive : BYTE;
Function DOS_GetMSDOSVersion(Var DosInHMA : BOOLEAN;
Var Revision : BYTE ) : WORD;
Function DOS_GetDiskSpaceFree( Drive : BYTE ) : LONGINT;
Function DOS_GetDevInputStatus( Handle : WORD;
Var Status : BYTE ) : BYTE;
Function DOS_GetDevOutputStatus( Handle : WORD;
Var Status : BYTE ) : BYTE;
Function DOS_IsRemovMediaDev( Drive : BYTE;
Var Remov : BOOLEAN ) : WORD;
Function DOS_GetMediaID( Drive : BYTE;
Var InfoLevel : WORD;
Var SerialNbr : LONGINT;
Var VolLabel : STRING;
Var FileSysType : STRING ) : WORD;
Function DOS_SetMediaID( Drive : BYTE;
InfoLevel : WORD;
SerialNbr : LONGINT;
VolLabel : STRING;
FileSysType : STRING ) : WORD;
Function DOS_GetExtErrText( VAR Description : STRING;
VAR ErrCause : STRING;
VAR Recommend : STRING;
VAR ErrSource : STRING ) : WORD;
{────────────────────────────────────────────────────────────────────────────}
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Procedure DOS_GetData( Var Version : WORD;
Var OEM : BYTE;
Var Serial : LONGINT );
[PARAMETERS]
Version VAR Returned Dos Version
OEM VAR Returned Dos OEM Code
Serial VAR Returned Dos Serial Number
[RETURNS]
(Function : None)
(VAR : [Version] Dos Version)
(VAR : [OEM] Dos OEM Code)
(VAR : [Serial] Dos Serial Number)
[DESCRIPTION]
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function DOS_GetVersion : WORD;
[PARAMETERS]
(None)
[RETURNS]
Dos Version
[DESCRIPTION]
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function DOS_GetOEM : BYTE;
[PARAMETERS]
(None)
[RETURNS]
Dos OEM Code
[DESCRIPTION]
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function DOS_GetSerial : LONGINT;
[PARAMETERS]
(None)
[RETURNS]
Dos Serial Number
[DESCRIPTION]
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function DOS_GetStartupDrive : BYTE;
[PARAMETERS]
(None)
[RETURNS]
Start up Drive Number (1=A,2=B,...)
[DESCRIPTION]
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function DOS_GetMSDOSVersion( Var DosInHMA : BOOLEAN;
Var Revision : BYTE ) : WORD;
[PARAMETERS]
DosInHMA VAR Returned Is DOS Loaded in High Memory?
Revision VAR Returned DOS Revision
[RETURNS]
(Function : Operation Error Code) (0=Success)
(VAR : [DosInHMA] Is DOS Loaded in High Memory?)
(VAR : [Revision] DOS Revision)
[DESCRIPTION]
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function DOS_GetDiskSpaceFree( Drive : BYTE ) : LONGINT;
[PARAMETERS]
Drive Drive Number (+80h for HD)
[RETURNS]
Free Space on Selected Drive
[DESCRIPTION]
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function DOS_GetDevInputStatus( Handle : WORD;
Var Status : BYTE ) : BYTE;
[PARAMETERS]
Handle Device or File Handle
Status VAR Returned Device or File Input Status Code
[RETURNS]
(Function : Operation Error Code) (0=Success)
(VAR : [Status] Device or File Input Status Code)
[DESCRIPTION]
Status returns as follows:
Devices: $00 = Not Ready, $FF = Ready
Files : $00 = Pointer at EOF, $FF = Ready
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function DOS_GetDevOutputStatus( Handle : WORD;
Var Status : BYTE ) : BYTE;
[PARAMETERS]
Handle Device or File Handle
Status VAR Returned Device or File Output Status Code
[RETURNS]
(Function : Operation Error Code) (0=Success)
(VAR : [Status] Device or File Output Status Code)
[DESCRIPTION]
Status returns as follows:
Devices: $00 = Not Ready, $FF = Ready
Files : $00 = Ready, $FF = Ready
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function DOS_IsRemovMediaDev( Drive : BYTE;
Var Remov : BOOLEAN ) : WORD;
[PARAMETERS]
Drive Selected Drive Number
Remov VAR Returned Is Media Removable? (TRUE=Yes)
[RETURNS]
(Function : Operation Error Code)
(VAR : [Remov] Is Media Removable?)
[DESCRIPTION]
Tests if Device is a Removable Media Device and returns the Results.
TRUE=Removable Media Device, FALSE=Fixed Media Device
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function DOS_GetMediaID( Drive : BYTE;
Var InfoLevel : WORD;
Var SerialNbr : LONGINT;
Var VolLabel : STRING;
Var FileSysType : STRING ) : WORD;
[PARAMETERS]
Drive Drive Number
InfoLevel VAR Returned Information Access Level
SerialNbr VAR Returned Media Serial Number
VolLabel VAR Returned Media Volume Label
FileSysType VAR Returned Media File System Type
[RETURNS]
(Function : Operation Error Code)
(VAR : [InfoLevel] Information Access Level)
(VAR : [SerialNbr] Media Serial Number)
(VAR : [VolLabel] Media Volume Label)
(VAR : [FileSysType] Media File System Type)
[DESCRIPTION]
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function DOS_SetMediaID( Drive : BYTE;
InfoLevel : WORD;
SerialNbr : LONGINT;
VolLabel : STRING;
FileSysType : STRING ) : WORD;
[PARAMETERS]
Drive Drive Number
InfoLevel Information Access Level
SerialNbr Media Serial Number
VolLabel Media Volume Label
FileSysType Media File System Type
[RETURNS]
Operation Error Code ($0000=Success)
[DESCRIPTION]
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function DOS_GetExtErrText( VAR Description : STRING;
VAR ErrCause : STRING;
VAR Recommend : STRING;
VAR ErrSource : STRING ) : WORD;
[PARAMETERS]
Description VAR Returned Error Description Text
ErrCause VAR Returned Error Cause Text
Recommend VAR Returned Error Recommendation Text
ErrSource VAR Returned Error Source Text
[RETURNS]
(Function : Operation Error Code, $0000=Success)
(VAR : [Description] Error Description Text)
(VAR : [ErrCause] Error Cause Text)
(VAR : [Recommend] Error Recommendation Text)
(VAR : [ErrSource] Error Source Text)
[DESCRIPTION]
Reads the Extended DOS Error Information for the last Error Condition
and returns the above information about it.
Based upon the Error Code, Returns each of the following:
1) A Description of the Error Condition
2) What may have Caused the Problem
3) A Suggested Course of Action
4) Device in which Error Occurred.
[SEE-ALSO]
[EXAMPLE]